Admin_ImageTool.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_ImageTool.asp
    <!--#include file="Admin_ChkPurview.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

Dim Rs,ToolId,ToolName,ToolType
Action=trim(request("action"))

Set Rs = Server.CreateObject("Adodb.Recordset")

ToolId = Request.QueryString("id")
ToolName = Server.HtmlEncode(Trim(Request.Form("ToolName")))
ToolType = Server.HtmlEncode(Trim(Request.Form("ToolType")))

Select Case Action
Case "add"
	Rs.Open "Select Top 1 * from Nt_ImageTool Where ToolId Is Null",Conn,1,3
	Rs.AddNew
	Rs("ToolName") = ToolName
	Rs("ToolType") = ToolType
	Rs.Update
	Rs.Close
Case "mod"
	Rs.Open "Select Top 1 * from Nt_ImageTool Where ToolId="&ToolId,Conn,1,3
	Rs("ToolName") = ToolName
	Rs("ToolType") = ToolType
	Rs.Update
	Rs.Close
Case "del"
	Conn.Execute("delete from Nt_ImageTool Where ToolId="&ToolId)
End Select
If Action<>"" Then Response.Redirect "Admin_ImageTool.asp"
%>
<html>
<head>
<title>摄影器材管理</title>
<script LANGUAGE="javascript">
function addType(form) {
	if(form.ToolName.value==""){
		alert("器材品牌名称不能为空！");
		form.ToolName.focus();
		return ;
	}
	if(form.ToolType.value==""){
		alert("器材类型不能为空！");
		form.ToolType.focus();
		return ;
	}
	form.action = "?action=add";
	form.submit();
}
function modType(form,id){
	if(form.ToolName.value==""){
		alert("器材品牌名称不能为空！");
		form.ToolName.focus();
		return ;
	}
	if(form.ToolType.value==""){
		alert("器材类型不能为空！");
		form.ToolType.focus();
		return ;
	}
	form.action = "?action=mod&id="+id;
	form.submit();
}
function delType(form,id){
	if(confirm("确实要删除品牌『"+form.ToolName.value+"』吗？这将删除所有相应的类型！")){
		form.action = "?action=del&id="+id;
		form.submit();
	}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Behind.WriteHtmlHead
Title="摄 影 器 材 管 理"
Link="<a href='Admin_Add.asp?TypeID=1' class='black'>添加图片</a> | <a href='Admin_User.asp' class='black'>管理用户</a> | <a href='Admin_Class.asp' class='black'>管理分类</a> | <a href='Admin_SiteConfig.asp' class='black'>系统配置</a>"
Behind.WriteHtmlTop Title,Link

Rs.Open "select * from Nt_ImageTool order by ToolId desc",Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border"> 
  <tr class="tdbg1"> 
    <td width="259" align="center" class="tdbg1"><b>器材品牌</b></td> 
    <td colspan="2" align="center" class="tdbg1"><b>器材类型</b>(<font color="#FF0000">请在下面框里每行填写一个类型</font>)</td> 
  </tr> 
  <tr class="tdbg"> 
    <form name="formadd" method="post" action=""> 
      <td width="259" align="center"><input type="text" id="ToolName" name="ToolName"></td> 
      <td width="600"> 
        <textarea name="ToolType" cols="60" rows="1" id="ToolType" onFocus="this.rows=15;" onBlur="this.rows=1;"></textarea> 
      </td> 
      <td width="114" valign="top"> 
        <input type="button" name="add" value="立即添加" onClick="addType(this.form);">
      </td> 
    </form> 
  </tr> 
<%
Do While Not Rs.Eof
%> 
  <tr class="tdbg"> 
    <form name="form<%=Rs("ToolId")%>" method="post" action="">
      <td width="259" align="center"><input type="text" id="ToolName" name="ToolName" value="<%=Rs("ToolName")%>"></td> 
      <td width="600"> 
        <textarea name="ToolType" cols="60" rows="1" id="ToolType" onFocus="this.rows=15;" onBlur="this.rows=1;"><%=Rs("ToolType")%></textarea> 
      </td> 
      <td width="114" valign="top"> 
        <input type="button" name="mod" value="保存" onClick="modType(this.form,<%=Rs("ToolId")%>);"><input type="button" name="del" value="删除" onClick="delType(this.form,<%=Rs("ToolId")%>);"> 
      </td> 
    </form> 
  </tr> 
<%
	Rs.Movenext
Loop
Rs.Close
%> 
</table> 
<%
Behind.WriteHtmlEnd
Set Netout = Nothing
%>